   1 .
   5 .
  30 clear ;BC=126;FC=250;S=0;W=0
  80 gosub 5000
  85 goto 2000
  90 gosub 7000
 100 if TR(1)=0goto 90
 110 clear 
 400 gosub 5000
 460 A=rnd (4)
 470 B=rnd (6)
 480 C=rnd (5)
 490 gosub 6500
 500 if A=1gosub 5500
 510 if A=2gosub 5730
 520 if A=3gosub 5940
 530 if A=4gosub 5590
 540 gosub 6500
 600 if B=1gosub 5530
 610 if B=2gosub 5700
 620 if B=3gosub 5980
 630 if B=4gosub 5610
 640 if B=5gosub 5830
 645 if B=6gosub 5830
 650 gosub 6500
 700 if C=1gosub 5560
 710 if C=2gosub 5760
 720 if C=3gosub 5900
 730 if C=4gosub 5630
 740 if C=5gosub 5810
 800 W=W-1
 810 if A=(B)W=W+5;S=5;goto 900
 890 goto 85
 900 if A=(C)W=W+5;S=10;if C=4goto 1100
 950 CY=-5
 960 CX=-41
 970 print "WINNER!",#8,S
 980 NT=12
 990 MU="5"
1000 MU="8"
1010 MU="5"
1020 MU="8"
1030 MU="5"
1040 NT=24
1050 MU="8"
1060 NT=0
1070 goto 85
1100 CY=-5
1105 W=W+15;S=25
1110 CX=-41
1120 print "JACKPOT",#8,S
1130 NT=13
1140 BC=223
1150 FC=0
1160 MU="3"
1170 BC=16
1180 NT=36
1190 MU="5"
1200 BC=146
1210 NT=13
1220 MU="3"
1230 BC=82
1240 MU="4"
1250 BC=250
1260 NT=36
1270 MU="5"
1280 NT=0
1290 BC=126
1300 FC=250
1310 goto 85
2000 CY=-25
2010 CX=-41
2020 print "SCORE: ",#8,W
2030 goto 90
5000 box -36,20,26,26,1
5010 box 0,20,26,26,1
5020 box 36,20,26,26,1
5100 return 
5500 box -36,20,6,18,2
5510 box -36,20,18,6,2
5520 return 
5530 box 0,20,6,18,2
5540 box 0,20,18,6,2
5550 return 
5560 box 36,20,6,18,2
5570 box 36,20,18,6,2
5580 return 
5590 box -36,20,18,6,2
5600 return 
5610 box 0,20,18,6,2
5620 return 
5630 box 36,20,18,6,2
5640 return 
5700 box 0,20,18,18,2
5710 box 0,20,6,6,1
5720 return 
5730 box -36,20,18,18,2
5740 box -36,20,6,6,1
5750 return 
5760 box 36,20,18,18,2
5770 box 36,20,6,6,1
5780 return 
5810 box 36,20,6,18,2
5820 return 
5830 box 0,20,6,18,2
5840 return 
5900 box 36,20,18,18,2
5910 box 36,20,6,18,1
5920 box 36,20,18,6,1
5930 return 
5940 box -36,20,18,18,2
5950 box -36,20,18,6,1
5960 box -36,20,6,18,1
5970 return 
5980 box 0,20,18,18,2
5990 box 0,20,18,6,1
6000 box 0,20,6,18,1
6010 return 
6500 NT=8
6510 MU="W"
6520 MU="W"
6530 MU="W"
6540 NT=0
6550 return 
7000 if W>49goto 7100
7010 if W<-24goto 7210
7020 return 
7100 NT=8;BC=250
7130 print "   103305050880mul 3-mul 3mul 308805050330mul 3-mul 3mul 2070705050-540mul 2mul 3mul 10mul 10mul 10mul 10mul 100000  "
7150 clear ;BC=126;CY=30
7170 print "     CONGRADULATIONS!    "
7175 print 
7180 print "      YOU JUST BROKE     "
7190 print 
7200 print "         THE BANK        "
7205 goto 30
7210 clear ;BC=250;CY=30;NT=10
7230 print "  56565650343434302323232321212100    "
7240 clear ;FC=7;CY=30
7270 print "       YOU ARE NOW       "
7280 print 
7290 print "        BANKRUPT!        "
7295 print 
7300 print "    LET SOMEONE ELSE     "
7310 print 
7320 print "          PLAY           "
7330 goto 30
:return ;run 